(compose-region): Use restore-buffer-modified-p.

diff --git a/lisp/composite.el b/lisp/composite.el
index fa69ac6ff83c674c12073b903d832a948742ab41..8361e2ad9e3c13fd3b55086d70d0d1e4ac9e4d21 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -193,7 +193,7 @@ text in the composition."
     (if (or (vectorp components) (listp components))
        (setq components (encode-composition-components components)))
     (compose-region-internal start end components modification-func)
-    (set-buffer-modified-p modified-p)))
+    (restore-buffer-modified-p modified-p)))
 
 ;;;###autoload
 (defun decompose-region (start end)